if x[0]<>0 then y=1 endif